home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 23
/
Aminet 23 (1998)(GTI - Schatztruhe)[!][Feb 1998].iso
/
Aminet
/
text
/
edit
/
BlacksEditor.lha
/
BlacksEditor
/
Rexx
/
NextParagraph.bed
< prev
next >
Wrap
Text File
|
1997-12-03
|
498b
|
48 lines
/*
** $VER: NextParagraph.bed 1.0 (06.01.96)
**
** Move the cursor to the start of the next paragraph
**
** Modified by Marco Negri
*/
OPTIONS RESULTS
str = ' ' || '09'X
SetLockInput ON
SetLockDisplay ON
MoveSOL
DO FOREVER
GetLine
IF COMPRESS(RESULT,str) = "" THEN BREAK
MoveDown
IF RC ~= 0 THEN DO
MoveEOL
EXIT
END
END
DO FOREVER
GetLine
IF COMPRESS(RESULT,str) ~= "" THEN BREAK
MoveDown
IF RC ~= 0 THEN DO
MoveEOL
EXIT
END
END
SetLockInput OFF
SetLockDisplay OFF